Developer CD Series 1995 August: Tool Chest

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / Dylan Related / Mindy / Mindy 1.2 - Mac PPC / lib / print-lib.dbc < prev next >

Wrap

Text File | 1995-03-15 | 51.5 KB | 291 lines | [TEXT/ttxt]

# compilation (2.1) of library.dylan # produced with the 1.2 version of mindycomp nxöæ<Print> library.dylanEdylanstreamspprintF ExtensionsSystem<pretty-stream>pprint-logical-blockpprint-newline pprint-indent pprint-tab*default-line-length**print-miser-width*F internals <boolean><fixed-integer><extended-integer>false-orone-of introspection class-name function-nameslot-descriptors slot-name slot-value <subclass><limited-integer><union>singleton-objectsubclass-oflimited-integer-classlimited-integer-minlimited-integer-max union-membersF<stream>writelock-stream unlock-stream<buffer><buffer-index>string-output-stream-string<byte-string-output-stream><byte-character><byte>"stream-extension-get-output-buffer&stream-extension-release-output-buffer$stream-extension-empty-output-buffer(stream-extension-force-secondary-buffersstream-extension-synchronize print-objectprint-to-stringprint-lengthprint-levelprint-depth print-circle? print-pretty?*default-length**default-level**default-circle?**default-pretty?*ˇ# compilation (2.1) of pprint.dylan # produced with the 1.2 version of mindycomp nxöæ<Print>pprint.dylan=pprintA*print-miser-width*7#Define Variable *print-miser-width*)+)6)2false-or6)2<fixed-integer>4<type>4 init-variable2∞°ë¢`a≥$QPPÉA*default-line-length*7%Define Variable *default-line-length*)++6+2442†°` Pa≤#QPPÉ@$initial-buffer-size7$Define Constant $initial-buffer-size)+042Ä`∞!PÉ@$newline7 Define Constant $newline)+2 622as622 42 ∞°"í`≥$PÉ@<index>7Define Constant <index>)+=6=2limited6=2min42∞°" ì`≥$PÉ@<column>7Define Constant <column>)+>6>26>2 42∞°" ì`≥$PÉ@ <position>7 Define Constant <position>)+? 6?242†`±"PÉD<pretty-stream>pretty-stream-targetpretty-stream-target-setterpretty-stream-line-length pretty-stream-line-length-setterpretty-stream-user-buffer pretty-stream-user-buffer-setterpretty-stream-bufferpretty-stream-buffer-setter!pretty-stream-buffer-fill-pointer(pretty-stream-buffer-fill-pointer-setterpretty-stream-buffer-offset"pretty-stream-buffer-offset-setter!pretty-stream-buffer-start-column(pretty-stream-buffer-start-column-setterpretty-stream-line-number pretty-stream-line-number-setterpretty-stream-blockspretty-stream-blocks-setterpretty-stream-prefixpretty-stream-prefix-setterpretty-stream-suffixpretty-stream-suffix-setterpretty-stream-queuepretty-stream-queue-setterpretty-stream-pending-blocks#pretty-stream-pending-blocks-setterpretty-stream-closed?pretty-stream-closed?-setter7 Define Class <pretty-stream>*++E4%define-class-16E24list6E2<stream>∞°≤£ëÇ$7]ìDefine Class <pretty-stream>1+`+H+K+L+M +P+Q+T+U+X+_+d+e +i+l+m+n+o+p+q+r+s+t +y+z+ Ä+ Å+ Ö+ Ü+ â+ ç4%define-slot222222222222222 2!2"2#2$2%2&2'2(2)2*2+2,4%define-class-224.4 make-slot6H2/required-init-keywordtarget6K2 init-value6L2init-keywordline-length6P2<buffer> init-function6Q2curry6Q2make6T2 <byte-string>9size6U26X25_2556column6i25!6l2<list>96m2compose6m2.6n2<logical-block>start-columnsection-columnper-line-prefix-end prefix-length suffix-lengthsection-start-line#9=%9='6Ö2<deque>9)5+6ç2 <boolean>5∞!"Ç∞#$Ç∞%&Ç∞'(Ç∞)*Ç∞+,Ç∞-.Ç∞//Ç∞//Ç∞//Ç∞//Ç∞//Ç∞//Ç∞//ÇøØøø /! °¢Ø"/#/$óø /% £§Ø&/'Ø(/)/*ôø /+ •¶Ø,/-ø.Ø/Ø,íóø /0 ß®Ø1/2ø.Ø/Ø1/3Ø4îóø /5 ©™Ø6/7 óø /8 ´¨Ø9/: óø /; ≠ÆØ&/< /=/>ôø /? ØØØ@/A óø /B ØØØC/DøEØFø.Ø/ØG/H /I /J /K /L /M ûíóø /N ØØØ1/Oø.Ø/Ø1/PØ4îóø /Q ØØØ1/Rø.Ø/Ø1/SØ4îóø /T ØØØU/Vø.Ø/ØUíóø /W ØØØC/Xóø /Y ØØØZ/[óûøêøêÑ/\C index-posn7 Define Method index-posn++ ó+ ò+ ó6ó246ó26ò24%define-method2J97J)+ ô**stream *index 6ô2∞04.J†°`¢°a£°b¥%R&∑PQí∑RëÇ(C posn-index7 Define Method posn-index++ †+ °+ †6†246†26°24K2O97O)+ ¢**M *posn 6¢2∞Ò04.O†°`¢°a£°b¥%R&∑PQí∑RëÇ(Cposn-column7 Define Method posn-column++ ´+ ¨+ ´6´246´26¨24K2R97 R)+ ≠ **M *Q 6≠2index-column6≠2O∞±32í2í04.R†°`¢°a£°b¥%R&∑PQí∑RëÇ(C"stream-extension-get-output-buffer7 $0Define Method stream-extension-get-output-buffer++ ≥+ ¥+ ≥6≥246¥286¥2<buffer-index>4K2U97)U-+ µ)*M+ ∂ W+ ∏W+ π)*bufW+ πW6µ2+6∂2error%= has been closed6∏26π2=4values4∞ ±"Å 4≥`P P¥ba`µP0Q1R2s4.U†°`¢°a£°b£°c¥%SRQ&∑Pë∑QRSìÇ(C&stream-extension-release-output-buffer74Define Method stream-extension-release-output-buffer*+ Ω + º 6Ω246Ω2V4K2\97\++ ø**next*M + ¿ ]+ ¬]6ø2+6¿2Z%= has been closed6¬2 append-output6¬24[2∞ ±"Å ≥22¥ 1Ñµp4.\†°`¢°a≥$%∂PQí∂êÇ'C$stream-extension-empty-output-buffer72Define Method stream-extension-empty-output-buffer++ ≈+ Δ+ ≈ 6≈246Δ2V4K2`97`++ »**stop*M + … a+ Àa6»2+6…2Z%= has been closed6À2_6À24[2∞ ±"Å ≥22¥ 1Ñµp4.`†°`¢°a≥$%∂PQí∂êÇ'C(stream-extension-force-secondary-buffers76Define Method stream-extension-force-secondary-buffers*+ œ+ Œ6œ244K2c97Wc0+ —)*M+ “ d+ ‘d+ ’d+ ÷d+ ◊)*queued+ ÿ e+ €d6—2+6“2Z%= has been closed6‘2maybe-output6’2zero?6’26÷2'6◊2empty?6◊2first6◊2op-posn6ÿ2output-partial-line6€2force-output6€24[1∞ ±"Å ≥1Ç¥1µë *1∂`∑PëaQQ P∏π ¯ ∫1Å ª1ºÅΩp4.c†°`≤#$µPëµêÇ&Cstream-extension-synchronize7*Define Method stream-extension-synchronize)+ ﬁ6ﬁ244K2n97Wn0+ ‡)*M+ · o+ „o+ ‰o+ Âo+ Ê)*fo+ Á p+ Ío6‡2+6·2Z%= has been closed6„2g6‰2h6‰26Â2'6Ê2i6Ê2j6Ê2k6Á2l6Í2synchronize-output6Í24[1∞ ±"Å ≥1Ç¥1µë *1∂`∑PëaQQ P∏π ¯ ∫1Å ª1ºÅΩp4.n†°`≤#$µPëµêÇ&Cclose7Define Method close)+ Ì6Ì244K2r970r.+ Ó )*M+ Ôs+ s+ Òs+ Ú s+ Û s6Ó2+6Ô2g62expand-tabs6Ò2write6Ò26Ò2startend6Ú26Û2,4[1∞ !±1Ç≤1Ç≥1¥1µ& '1∏Ü`πP1Ç∫p4.r†°`≤#$µPëµêÇ&C_7 !Define Method append-output++ + + 62462862V4K2_97_++ ,*b*v *buffer *M+ )*repeatx+ z97O{1+ .*{*y *M*b*N*chunk-start+ |+ |+ |+ |+ |+ |+ |+ |62append-raw-output4element6 2 6 2enqueue-newlineliteral50ı65ı∞1265t±25í¢ı$65ı ∞1265Ñ≥1$Ç35 5 r365 r4.4<object>4[`P341 ±¢¢íPP22Ç≥p4._†°`¢°a£°b£°c¥%&∑PQRSî∑êÇ(C~7#Define Method append-raw-output-+ + + + !+ 62462union62862<6 2V4K2~979~1+ ",*b*v *stuff *M+ #)*charsÑ+ $)* availableÜ+ %)*countà+ &)*fill-pointerä+ ' )*new-fill-ptrå+ (é+ ) é+ *é6#2assure-space-in-buffer6$2 6%26'2 copy-bytes6'26(26*2~12Ò`∞4Pía±PQíb4≤cSRd≥4¥S32RÖTeµU4ÇRPı∂432R1t4.~†°`≤£§í°a•°b•°c∂'(πPQRSîÇ*DAlogical-block-start-column!logical-block-start-column-setterlogical-block-section-column#logical-block-section-column-setter!logical-block-per-line-prefix-end(logical-block-per-line-prefix-end-setterlogical-block-prefix-length"logical-block-prefix-length-setterlogical-block-suffix-length"logical-block-suffix-length-setter logical-block-section-start-line'logical-block-section-start-line-setter7 Define Class <logical-block>*++ 64-662A4.662ÇA∞°≤£ëÇ$7'àDefine Class <logical-block>1+(+ 9+ : + =+ > + B+ C + F+ G + J+ K + N+ O402í2ì2î2ï2ñ2ó2ò2ô2ö2õ2ú2ù412A4.42í6923Bî3Cñ6B23Dò3Eö3Fú6N23GA∞!"Ç∞#$Ç∞%&Ç∞'(Ç∞)*Ç∞+,ÇΩÆøø/ °¢Ø//óø/ £§Ø//óø/ •¶Ø//óø/ ß®Ø//óø/ ©™Ø/ /!óø/" ´¨Ø#/$/%óñøêøêÑ/&Creally-start-logical-block7 $(Define Method really-start-logical-block-+ Y+ Z+ [+ \+ Y6Y246Z26[26[2<string>4K2û97’û 1+ ],*suffix*prefix *> *M+ ^)*blocks†+ _)* prev-block£+ `)*per-line-end•+ a)*Eß+ b)*F©+ c™+ d™+ e™+ f™+ g™+ h™+ i)* new-block™+ j´+ k´+ q´+ r´+ s´+ t´+ v´+ w´+ x)*total-suffix´+ y)*total-suffix-len≠+ z)* additional Ø+ {)*new-suffix-len$±+ }≥+ ~≥+ )*new-total-suffix-len(≥+ Ä)*new-total-suffix,µ+ Å∑+ Ç∑+ É∑+ Ñ∑+ Ö∑+ Ö≥+ á≥+ à≥+ â≥+ ä ≥+ ä´6]2!6^2head6_2ñ6`2ò6a2ö6b2;6b2ABCDEFG6h26i2pair6i2"6j2set-indentation6q2ó6r2ë6r2#6r2=6w2%6}2max6}2*6~2floor/62<=6Ö2&6ä2õ4∞`P±aQ≤bQ≥cQ¥dµ¶'3(3)R*S+T,4ΩùeæUPíføV4Çø43Ç2"3føVUÇø4ø32øÒ2 2øÖ 1n4øfVøg1øhTXiYW¯=øøW íTøøX í ííjµØ/Zìkø[ZTÒVWTÒTÖ[fZgVlø\4Ç øVWYÒ1 XÖYjøZUÇZ4.û†°`¢°a≥§ë°b≥§ë°cµ&'∏PQRSîÇ)Cª7Define Method set-indentation++ ì+ î+ ì6ì246î24K2ª97wª 1+ ï**>*M + ñ)*¢ø+ ó)* prefix-len¿+ ò)* this-block¡+ ô)*current√+ ö)*minimum≈+ õ)*>«+ ù…+ û)*new-prefix-len…+ ü )* new-prefix + †Ã+ †…+ ¢…+ £…+ • …6ï2#6ñ2=6ó2!6ó2π6ò2ò6ô2ñ6ö2º6ù2Ω6ù2æ6û2;6û2<=6ü2ë6†2$6£2fill! vw6•2ô2∞`P±a2≤≥bR¥cRµd∂T1íeUQ¯1∂∑Q íQ∏∑UQÒ í íífπ™+VìgºW P SÖWhΩX2Ç US¯æP//S/UÜ UføVRÇV4.ª†°`¢°a≥$%∂PQíÇ'Creally-end-logical-block7&Define Method really-end-logical-block)+ ≠6≠244K2œ97 3œ0+ Æ)*M+ Ø)*old–+ ∞)* old-indent—+ ±”+ ≤)*new”+ ≥)* new-indent’+ ¥◊+ µ◊6Æ2!6Æ2π6Ø2ò6∞2tail6∞2"6¥2Œ6¥2# vw1∞±`P≤a1∞≥b¥R1Ç1∞±bR≤cSQ¯ µ1∂'(Q)Sv4.œ†°`≤#$µPëÇ&D<queued-op>kop-posn-setter7 Define Class <queued-op>*++ »4-6»2⁄4.6»2Ç⁄∞°≤£ëÇ$7 Define Class <queued-op>*++ À 402k2€412⁄4.42k6À2⁄∞!"Ç≥§µ∂' °¢®ïëµêµêÑ)Cenqueue7Define Method enqueue)+ ”6”246”2⁄4K2‹97‹++ ‘**op*M + ’›+ ÷›6‘2J6‘26‘2€6’2 push-last6’2'∞2±2í`≤P1Ç≥2¥1Ç14.‹†°`¢°a≥$%∂PQíÇ'D<section-start>section-start-depthsection-start-depth-settersection-start-section-end section-start-section-end-setter7 Define Class <section-start>*++ ›4-6›2‡4.6›2⁄‡∞°≤£ëÇ$73Define Class <section-start>,++ · + ‰+ Â402·2‚2„2‰412‡4.42·6·23depth„6‰2type-or6‰2<false>6‰2 <newline>6‰2<block-end>5‡∞!"Ç∞#$Çµ¶∑∏) °¢™+,ó∏- £§æØØØì/óí∑ê∑êÑ/@<newline-kinds>7Define Constant <newline-kinds>)+ Ì6Ì2one-oflinearfillmiserÅ mandatory42Í∞!"#$%ï`∂'PÉDËnewline-kindnewline-kind-setter7 Define Class <newline>*++ Ò4-6Ò2Ë4.6Ò2‡Ë∞°≤£ëÇ$7Define Class <newline>*++ Ù4022Ò412Ë4.426Ù2Í3kindË∞!"Ç≥§µ∂' °¢®)*óëµêµêÑ+CÄ7Define Method enqueue-newline++ ˝+ ˛+ ˝6˝246˛2Í4K2Ä97ôÄ1+ ˇ**Ú*M + )*ÂÛ+ $)*newlineÙ+ )*entry$ı+ ˜+ ˜+ ˜+ ˜+ ı6ˇ2)6ˇ2=62‹62;62ËÚÂ62'4forward-iteration-protocol62 instance?62‡62„62·62‰6 2gÅÔ2∞±`≤2≥§%1&Pïía2∑b∏RÅhgfedcVRSTì RXRSíiQYı "πY™íYª PYºÛ QjΩZYÇ URSíc ûˇˇˇæ21/ıbRR 1/ır4.Ä†°`¢°a≥$%∂PQíÇ'D <indentation>indentation-kindindentation-kind-setterindentation-amountindentation-amount-setter7 Define Class <indentation>*++ 4-62˚4.62⁄˚∞°≤£ëÇ$72Define Class <indentation>-++ + + + 402¸2˝2˛2ˇ412˚4.42¸62ÎblockΔ3Ú˛623amount˚∞!"Ç∞#$Çµ¶∑∏) °¢∫+,í-.ó∏/ £§Ø//óí∑ê∑êÑ/Cenqueue-indent7Define Method enqueue-indent,+ + + !+ 6246 2ÎΔ6!24K297 )+ " +**Ú *M 6"2‹6"2;6"2˚Ú∞3±¢#2$1ïr4.†°`≤#$í°a•°b∂'(πPQRìÇ*D <block-start>block-start-block-endblock-start-block-end-setterblock-start-prefixblock-start-prefix-setterblock-start-suffixblock-start-suffix-setter7 Define Class <block-start>*++ )4-6)24.6)2‡∞°≤£ëÇ$7HDefine Class <block-start>.++ - + 0+ 1+ 4+ 5 4022222 2 4124.426-26-2È5602<3¢ 3°∞!"Ç∞#$Ç∞%&Ç∑®π∫+ °¢º≠ë.ó∫/ £§ºØë//ó∫/ •¶ºØë//óìπêπêÑ/Cstart-logical-block7 $!Define Method start-logical-block-+ =+ >+ ?+ @+ =6=246>26>2<6?2I4K297@1+ A,*°* per-line? *¢ *M+ B+ D+ E)*pending-blocks+ F+ G+ H+ I+ J )*v+ K6B2~6B2=6D2)6E2‹6F2;6F2¢°Â6J2∫6J2*3∞43 3±Ñ 4≤`≥4¥•&23 '1(P±óíaπQPíb∫R4ÇQ4.†°`≤£ë°a§°b≤£ë°cµ&'∏PQRSîÇ)DÈblock-end-suffixblock-end-suffix-setter7 Define Class <block-end>*++ R4-6R2È4.6R2⁄È∞°≤£ëÇ$7 Define Class <block-end>+++ U+ V4022412È4.426U26U2<3°È∞!"Ç≥§µ∂' °¢∏©ë*+óëµêµêÑ,Cend-logical-block7Define Method end-logical-block++ ^+ _+ ^6^246_2I4K297H1+ `**aborted?*M + a)*§+ b )*v+ c+ d )*°+ e)*b+ f+ h+ i6`2)6a2π6b2Ÿ6b2*6c2 6d2‹6d2;6d2È°6f2~6f2=6h22∞`P±aP≤b≥R2Ç1 Q¥bµ2∂ß(RìícRπ2R R∫Ñ SdªTQÇS4.†°`¢°a≥$%∂PQíÇ'D<tab>tab-section?tab-section?-setter tab-relative?tab-relative?-setter tab-colnumtab-colnum-setter tab-colinctab-colinc-setter7 Define Class <tab>*++ n4-6n24.6n2⁄∞°≤£ëÇ$7VDefine Class <tab>-++ q + r + s+ t4022222 2!2"4124.42q2I3section?3 relative?6s23colnum!6t23colinc∞!"Ç∞#$Ç∞%&Ç∞'(Çπ™ªº- °¢Æ//óº/ £§Æ//óº/ •¶Ø//óº/ ß®Ø//óîªêªêÑ/Cenqueue-tab7%Define Method enqueue-tab-+ {+ |+ }+ ~ + {6{246|2Îline line-relativesectionsection-relative6~26~24K2'97 R'/+ Ä,*&*% *Ú *M+ Å,+ Ç,+ É,+ Ñ,+ Ü**$*#,+ á-()*+4Zfell through select6Ü2‹6Ü2;6Ü2#$%&3`P ı 1P!ı "P"ı P#ı ¥%Åa`∂4∑®)P*Q+2,1ôr4.'†°`≤#$%&î°aß°b®°cπ*+ºPQRSîÇ-Ccompute-tab-size7Define Method compute-tab-size++ í+ ì+ í 6í246í24K2.97f.1+ î+*>* section-start *tab + ï)*origin/+ ñ)*%2+ ó)*&4+ ò5+ ô5+ ö)*newposn5+ õ )*rem6+ ú8+ ü5+ † 5+ °5+ £ 56î2ï26ñ2!6ó26ö2 remainder6õ2h3∞2 `3±a3≤b3≥,R Û 1Qc¥SRídµTë QRTÒaQ1QPÛQP1ÒR¥1PÒRíÒ4..†°`¢°a¢°b≥$%∂PQRìÇ'CT7Define Method index-column)+ ≤6≤246≤24K2T97 &T-+ ≥**M*N + µ )*>;+ ∂)*0<+ ∑)*end-posn=+ ≈>6≥26µ2!6µ2π6µ2î6∂2J6∑4catch97 Ä 1+ ∑)*return,*0*>*?*M+ ∏!A+ π )*ﬁ A+ ∫D+ º D+ ΩD+ æD+ ø D+ ¿D+ ¡D97B)+ ∑4apply4throw∞°02s4.6∏2'4˘6π2k6º2˙6º26æ2.6ø2O6¿2‡5 ±ê`0≤a≥QÅgfedcbUQRSìWQRíhX¥1˜PÄ µX¶í2∑X32∏X¥0íì2 µX©í2∏X¥0í3 TQRíb ñˇˇˇ4.4Ç1∞`1±≤≥a¥21íbµQPR1&∑®ëÅP24.T†°`¢°a≥$%∂PQíÇ'Ct7 Define Method expand-tabs++ Œ+ œ+ Œ6Œ246œ26œ2⁄4K2t97t1+ Œ**through*M + —)* insertionsG+ “)*≤I+ ‘ )*> K+ ’)*0L+ ÁM+ ËM+ È)*fill-ptrM+ Í)*èN+ Î)*yP+ Ï)* new-bufferQ+ Ì)*len R+ Ó)*b$T+ ÔV+  )*new-len(V+ ÒW+ ÒV+ ÛV+ ıV+ ÙV+ ˆ(V+ ˜)* insertionDV+ ¯)*srcposHY+ ˘)*L[+ ˙)*dstposP]+ ˚)*tabposT^+ ¸`+ ˝`+ ˛`+ V+ V6“26‘2!6‘2π6‘2î6’4@97ü1+ ’)*B.*H*≤*J*>*0*M+ ÷!b+ ◊ )*ﬁ b+ ÿd+ Ÿ )*N$d+ ⁄ )*tabsize(e+ € f+ ‹f+ ›f+ ﬂd+ ‡d+ ‚d+ „d97B)+ ’4E4F∞°02s4.6÷2'4˘6◊2˙6◊26ÿ2O6ÿ2k6Ÿ2.6⁄2h6€2∫6ﬂ2‡7 ±ê`0≤a≥QÅgfedcbUQRSìWQRíh¥X•í9∂X∑0íi∏X12YìjπZë ∫∫YZí3í34Z42Z2 ¥X´í2∂X∑0í1 X5ıPÄ TQRíb wˇˇˇ4.4Ç6Á2i6Ë26Í26Ï2=6Ô2º6Ô2Ω6Ô2æ62;62<=6Ò26Û26ı2Ù24˘6¯2Ÿ6˚2ë6¸2Œ vw` a2∞b2±≤≥c¥1QPRS2%∂ßëÅ∏Pë2πdTQe2∫fVgVªhTiUX¯*ºΩX íTæΩQ í ííjøØ/ZìgWkø[2Ç UjøZ2Ç2øQÒjøZ2ÇPjøZÅoonmlk^Z[\ì U_Z[ío_≤o_øo_Qo__ÒoøW_V_Y_ÒÖøW//_/_ÜQ_ÒQ_i]Z[ík õˇˇˇWVıøW V Yu4.t†°`≤£ë°a¥%&∑PQíÇ(Cê7$Define Method assure-space-in-buffer,+ + + + 624624K2ê97tê1+ **want *M + )*yh+ )*lengthj+ )*Ok+ )*âm+ n+ n+ n+ n+ n+ n+ n+ )* new-lengthn+ )*So+ ! q+ "q+ "h6262=626262g62l62ê62º62Ω62æ62;62<=6 26!2ë3∞`P±a3≤bQRÒcS ¯S RR3≥¯¥3í µ3Å∂32í -∑∏Q íQπ∏2 í ííd∫´,TìeUfΩV3ÇæU P RÖTRÒ04.ê†°`¢°a¢°b≥$R%∂PQí∂RëÇ'Cg7Define Method maybe-output,+ .+ /+ 0+ .6.246/2I4K2g97g-+ 1**force-newlines? *M + 2)*fr+ 3)*output-anything?t+ áu+ ár612'634@970;13+ 3)*B,*s *M *v*f+ 4 w+ 6w+ 7 )*^w+ :y+ ;()*Úy+ Qz+ R z+ @z+ Az+ Qz+ Bz+ Cz+ Dz+ Ez+ Fz+ Gz+ Hz+ Iz+ Jz+ Kz+ Lz+ Qz+ Oz+ Q z+ Ty+ V y+ Wy+ Xy+ Yy+ Zy+ [y+ \ y+ ]y+ ^ y+ `y+ ay+ dy+ fy+ gy+ hy+ ly+ m)*by+ n{+ o {+ oy+ qy+ sy+ ty+ uy+ vy+ wy+ yy+ {y+ }y+ ~y+ Äy+ Åy+ Çy+ Ñ y97B)+ 34E4F∞°02s4.642i662j672˙672Ë6:2ÅÔÏ6R2output-lineÓ6A2 misering?Ì6D26E2!6E2π6F2ú6G2 fits-on-line?6H2„ dont-know4Zfell through select6O2ZStrange kind of newline: %=6T2˚6W2ª6X2˛6Y2¸6\2íΔ6^2R6^2kStrange kind of indentation: %=6d26l26m2t6o2pop6s2û6u26v2 fell through select6{2È6}2œ6~2Strange thing in queue: %=5 ±ê`0≤0≥a¥Q•í˝Q∂bR'ıcSS R(ıdTT R)ı 1∫2QÇ øR+ı2º 1∫2QÇ ùR-ı}2ºcSS V2æ2øøø¯dTT ;ø2Qø3ìeUı #Uı U/ıPê ø/ë 1∫2QÇ ø/Rí 1∫2QÇ ¥QØíXº2ë Fø2QøQøbR/ı2øøø R/ı ø Qø!2í ø/"QøíÇ ≥¥QØ#íyø2Qø3ìbRı)Qø$cø%2SÇ0≥Sı ø&0Å Áˇˇˇ 9Rıø'2ø Qø!2íQø(Qø)Ñ R/*ıPÄ ø/+Å 0¥QØ,í ø-2Å ¥QØ.íø%2QÇ ø//QÇø&0Å Õ˝ˇˇ4.4Ç3∞`a±23QP"≥§ëÅQ04.g†°`¢°a¢°b≥$R%∂PQí∂RëÇ'C}7Define Method misering?)+ é6é244K2}97}.+ è)*M+ êÅ+ ë)*line-lenÅ+ í)*§Ç+ ì)*BÑ+ ìÅ6è26ê26ë2!6í2π6í2í†1±`1≤aQ≥¥bPRÒ†Û4.}†°`≤#$µPëÇ&C~7(Define Method fits-on-line?-+ ú+ ù+ û+ ü + ú6ú246ù26ù2⁄6û2I6ü2Î4K2~97:~1+ †+*s *until-op *M+ ¶)*âÜ+ ßà+ ®à+ ©à+ ™à+ ´à+ ¨à+ ≠à+ Æà+ ÆÜ6†26ß2R6ß2k6™2T6™24∞`3 ±3≤4íPÛ 2 ≥4¥4íP¯ %04.~†°`≤£ë°a§°bµ&ì°c∑(S)∫PQRì∫SëÇ+C|7Define Method output-line)+ ∏6∏246∏2Ë4K2|97$ |1!+ π**ˆ*M + ∫)*4â+ ª)*yä+ º)*Úã+ Ω)*literal?å+ ø)*amount-to-consumeç+ ¿è+ ¡è+ ƒ)*{è+ –ë+ –è+ “ )*amount-to-printè+ ”í+ ﬂ)*line-numberí+ ‡î+ · î+ ‰î+ Â)*Oî+ Ê)* next-block ñ+ Áó+ Ëó+ Èó+ Î)*¬$ó+ Ï)*shift(ô+ Ì)*è,ö+ Ó)*S0ú+ Ô)* buffer-length4ù+ û+ Ò)*extra8û+ Ú †+ Û†+ Ù †+ Ùû+ ˆû+ ˜û+ ¯û+ ˘û+ ˚û+ ˙û+ ¸û+ ˝û+ ˛ û6π26∫26ª2Å6Ω2O6Ω2k97!{/+ ≈+*{*y*N + Δ¢+ »¢+ »)* new-index¢+ … £+ £+ Ã£6≈2h4 ∞3ë 3 Ò`±0Pí"ˆ31Pq4.4Ç6“2uvw6”2 6‡2 6·26‰26Â2!6Â2π6Á2ñ6È2ò6Ó2=6Ò2;6Ò2<=6Ú2º6Ú2Ω6Û2æ6Ù26ˆ2ë6¯2#6˘26˚2˙26˝2ï6˛2ù2∞`2±a1≤bR#ıc¥1µ2ídST eUQ&∑®ëUUTëeπQP* +UÜ2º fπ-PÇVgæW2Ç gøW2Ç2øg2øøhS Xø XøiTYÒjWZÒkQlQøm[]¯1[]ÒnøØ/øø] í]øø^ í ííìl\oø_2Ç ø\YQTWTÒÖø\ 2ø YÖ[nø^2Ç2ø Znø!^2ÇSYnø"^XÇVnø#^XÇ^4.|†°`¢°a≥$%∂PQíÇ'Cl7!Define Method output-partial-line)+ 6244K2l97ql1+ )*M+ )*O•+ )*f¶+ ß+ ß+ ß+ )*ãß+ )*è®+ )*y©+ ™+ ™+ ™+ ™+ ™+ ™+ ™+ ™626 2'6 2i6 2O6 2j6 2k6262h62Z6Output-partial-line called when nothing can be output.62u62vw626262ë626221∞`1±a≤QëP ≥Q¥µ1íbPRÒc1∂d∑Rë ∏)Å ∫T1ª, -RÜ1æReøU1ÇøT TRSÖSeøU1Ç1øReøU1ÇU4.l†°`≤#$µPëÇ&Bpprint-logical-block7 #Define Generic pprint-logical-block*++ %4%define-generic2´4.6%2/>¢per-line-prefixbody°´∞!≤£ë≤$%&'(ï≤êá)C´71"Define Method pprint-logical-block/+ 1+ 2+ 3+ 4+ 5+ 6+ 0612/4622 <integer>632632<652 <function>4K2´9>¢≠Æ°7 W´1+ 2)*M-+ 3)*>±+ 4)*¢≤+ 5)*≠≥+ 6)*Æ¥+ 8)*°µ+ 9∂+ ;∂+ <)*M∂+ =∑+ >∑+ ?∑+ @∑+ A∑692Z3Can't specify both a prefix: and a per-line-prefix:6;2;6;24>6<2´¢≠Æ°6A2r4[:ı :0`91a82b73c64dQR ∞!Å ≤£$;%Pïe∂U'Q(R)S*TâªUÅºp4.´†°`¢°a≥§ë°b≥§ë°c•°d≥§ë°e∂'UTSRQ(πPëπêÇ*C´71"Define Method pprint-logical-block/+ G+ H+ I+ J+ K+ L+ F6G246H2Ø6I26I2<6K2∞4K2´9>¢≠Æ°7 j´1+ H)*M-+ I)*>∏+ J)*¢π+ K)*≠∫+ L)*Æª+ N)*°º+ OΩ+ QΩ+ R Ω+ TΩ+ T)*Ω6O2Z3Can't specify both a prefix: and a per-line-prefix:6Q2+%= has been closed4uwp97!-+ V.**Æ*° *≠ *¢*M+ W¿+ X¿+ Y¿+ Z¿6V2∞01`PP 22ˆ3Ñ40Å54.97)+ \***M6\2∞01r4[:ı :0`91a82b73c64dQR ∞!Å ;≤ ∞#Å e¥USTRQ;%∂êU;'∂êÇ∏p4.´†°`¢°a≥§ë°b≥§ë°c•°d≥§ë°e∂'UTSRQ(πPëπêÇ*Bpprint-newline7 Define Generic pprint-newline,++ e+ f+ g4¨2¬4.6e2ÎÏÓÌÔ6g2/¬∞!≤≥$%&'î®í≤êá)C¬7Define Method pprint-newline,+ j+ k+ l+ j 6j2ÎÏÓÌÔ46l2/4K2¬97¬)+ j**M*Ú 4[∞p4.¬∞!"#$î•`¶•a∑()∫PQí∫êÇ+C¬7Define Method pprint-newline,+ p+ q+ r+ p 6p2ÎÏÓÌÔ46r24K2¬97¬++ t**M*Ú + u ƒ+ wƒ6t2+6u2Z%= has been closed6w2Ä4[1∞ ±"Å ≥12Ç¥p4.¬∞!"#$î•`¶•a∑()∫PQí∫êÇ+B pprint-indent7 Define Generic pprint-indent+++ ~+ 4¨2≈4.6~2ÎΔ6262/≈∞!≤≥$%í¶ßì≤êá(C≈7Define Method pprint-indent++ Ç+ É + Ç6Ç2ÎΔ46É26É2/4K2≈97≈)+ Ç+*M*n *relative-to 4[∞p4.≈∞!"í£`§£a•£b∂'(πPQRìπêÇ*C≈7Define Method pprint-indent,+ á+ à+ â+ á6á2ÎΔ46à26â24K2≈97≈++ ã+*M*« *» + å …+ é…6ã2+6å2Z%= has been closed6é24[1∞ ±"Å ≥132É¥p4.≈∞!"í£`§£a•£b∂'(πPQRìπêÇ*B pprint-tab7Define Generic pprint-tab-++ ï+ ñ+ ó+ ò4¨2 4.6ï2Î()*+6ó26ò2/ ∞!≤≥$%&'î®®©î≤êá*C 7 &Define Method pprint-tab-+ õ+ ú+ ù+ û+ õ6õ2Î(*)+46ù26û2/4K2 97 )+ õ,*M*& *% *Ú4[∞p4. ∞!"#$î•`¶•a¶•bß•c∏)*ªPQRSîªêÇ,C 7 &Define Method pprint-tab-+ ¢+ £+ §+ •+ ¢6¢2Î(*)+46§26•24K2 97 ++ ß,*M*& *% *Ú+ ® Ã+ ™ Ã6ß2+6®2Z%= has been closed6™2'4[1∞ ±"Å ≥1432Ñ¥p4. ∞!"#$î•`¶•a¶•bß•c∏)*ªPQRSîªêÇ,ˇ# compilation (2.1) of print.dylan # produced with the 1.2 version of mindycomp nxöæ<Print>print.dylan=D<print-stream>print-targetprint-target-setterprint-levelprint-level-setterprint-depthprint-depth-setterprint-lengthprint-length-setter print-pretty?print-pretty?-setter print-circle?print-circle?-settercircular-first-pass?circular-first-pass?-settercircular-referencescircular-references-settercircular-next-idcircular-next-id-setter7 Define Class <print-stream>*++.4%define-class-16.24list6.2<stream>∞°≤£ëÇ$7<˝Define Class <print-stream>1 +=+1+5 +6 +7 +<+A +B +C +F+G +H +K+L +M +S+W+X+^4%define-slot22222222 2 222 2222224%define-class-2244 make-slot612required-init-keywordstream652false-or652<fixed-integer> init-function97)+6662*default-level*†init-keywordlevel init-value97)+B6B2*default-length*† length 6F2 <boolean>97)+G6G2*default-pretty?*† pretty?97)+L6L2*default-circle?*† circle?"6W2<object-table>""∞!"Ç∞#$Ç∞%&Ç∞'(Ç∞)*Ç∞+,Ç∞-.Ç∞//Ç∞//ÇøØøø/ °¢Ø//óø/ £§øØë//øê/ /!ôø/" •¶Ø/# ˇóø/$ ß®øØë/%/&øê/'/(ôø/) ©™Ø*/+/,øê/-/.ôø// ´¨Ø*/0/1øê/2/3ôø/4 ≠ÆØ*/5óø/6 ØØøØ7ë/8óø/9 ØØØ/: óôøêøêÑ/;D<print-reference>print-reference-objectprint-reference-object-setterprint-reference-idprint-reference-id-setterprint-reference-countprint-reference-count-setter7 Define Class <print-reference>*++o46o2+46o2<object>+∞°≤£ëÇ$7CDefine Class <print-reference>-++r +w +x+{42,2-2.2/202142+44, object.6w26w2 <byte-string>"06{2"+∞!"Ç∞#$Ç∞%&Ç∑®π∫+ °¢,-ó∫. £§øØë/ó∫/ •¶Ø/ óìπêπêÑ/Cprint-reference7 Define Method print-reference++ â+ ä+ â6â24<type>6ä2+4%define-method2597)50+ ã** *3 + å)*table8+ ç)*ref9+ é;+ è;+ ê;+ ë )*<;+ ë86ã26å2elementdefault6ê2make6ê2+36ë2element-setter2∞`±P3"îaQQ ≥§%3ìbRc∂SP3ÉS04425†°`¢°a≥$Q%∂ßPí∂QëÇ(Cnew-print-reference-id7 $Define Method new-print-reference-id,+ ö+ õ+ ú+ ö6ö2466õ2+6ú24472B97B,+ ù**< * + û )*idC+ ü D+ üC6ù26û26ü2integer-to-string6ü2/3∞`P a±Q3Ç≤Pëa≥Q2ÇQ04B†°`¢°a£°b¥%R&∑PQí∑RëÇ(@$digit-characters7 !Define Constant $digit-characters)+ § 01234567894 init-variable2G `±"PÉCF7Define Method integer-to-string++ Ø+ ∞+ Ø6Ø2 <integer>466∞24472F97 0F0+ Ø)*arg + ±)*repeatJ+ ∫L+ ªL+ º L+ ΩL+ æL+ æJ97M-+ ≤+*M*digits *K + ≥** remainder*quotientN+ ¥)*OP+ µS+ ∑S6≤2floor/6≥2pair4>6≥2G6¥2zero?∞3 Ça`±≤£Qí2íb¥PëR0PRr4426∫2as6∫246ª2 negative?6º2U-4negative`P ±¢¢íP≥§µ2ë∂'P∏2ëíí P2íí04F†°`¢°a≥$Q%∂Pë∂QëÇ'B7Define Generic print-length*+ … + » 6…26…2464%define-generic246»2∞°ë¢`≥$µ¶ëµPëá'C7Define Method print-length++ À+ Ã+ À6À2466Ã2 singleton47297)+ Õ)* 04†°`≤ë°a≥$Q%∂Pë∂QëÇ'B7Define Generic print-level*+ ‘ + ” 6‘26‘2464Z246”2∞°ë¢`≥$µ¶ëµPëá'C7Define Method print-level++ ÷+ ◊+ ÷6÷2466◊2[47297)+ ÿ)* 04†°`≤ë°a≥$Q%∂Pë∂QëÇ'B7Define Generic print-depth*+ ﬂ+ ﬁ 6ﬂ2464Z246ﬁ2†°`≤#¥•ë¥Pëá&C7Define Method print-depth++ ·+ ‚ + ·6·2466‚2[47297)+ „)* 04†°`≤ ë°a≥$Q%∂Pë∂QëÇ'B 7Define Generic print-pretty?*+ Í+ È 6Í2%464Z2 46È2 †°`≤#¥•ë¥Pëá&C 7Define Method print-pretty?++ Ï+ Ì+ Ï6Ï2466Ì2[472 97 )+ Ó)* 04 †°`≤ë°a≥$Q%∂Pë∂QëÇ'B7Define Generic print-circle?*+ ı+ Ù 6ı2%464Z246Ù2†°`≤#¥•ë¥Pëá&C7Define Method print-circle?++ ˜+ ¯+ ˜6˜2466¯2[47297)+ ˘)* 04†°`≤ë°a≥$Q%∂Pë∂QëÇ'A7Define Variable *default-level*)+ 6262464H2∞°ë¢`a≥$QPPÉA#7 Define Variable *default-length*)+ 6262464H2#∞°ë¢`a≥$QPPÉA(7!Define Variable *default-circle?*)+ 62%464H2(†°`a≤#QPPÉA&7!Define Variable *default-pretty?*)+ 62%464H2&†°`a≤#QPPÉ@$unsupplied-arg7 Define Constant $unsupplied-arg)+ 62U4H2a∞í`±"PÉ@$print-level-exceeded-string7,Define Constant $print-level-exceeded-string)+ 62446#4H2b†°`"a≥$QPPÉ@$circular-id-prestring7&Define Constant $circular-id-prestring)+ 62446#4H2c†°`"a≥$QPPÉ@$circular-id-poststring7'Define Constant $circular-id-poststring)+ 62446#4H2d†°`"a≥$QPPÉB7 Define Generic Print*++ 4Z244262!$)'∞!≤£§í≤%&'(î≤êá)C7Define Method Print)+ (6(2464729!$)'7X-+ )***3+ *)*!e+ +)*$f+ ,)*)g+ ,)*'h6)2a4uwp97p1+ 3.*3*'*) *$ *!*+ 9k+ <)*p-streamk+ =l+ >l+ ?l+ Cl+ D l+ Hl632lock-stream692@692<2a6<26=2 6>2 6?26C26D2start-circle-printing6H2maybe-print-object∞0Å±¢#0ì`1§ı 1aµQPÇ2§ı 2a∂QPÇ3§ı 3a∑QPÇ4§ı 4a∏QPÇPπ ∫5PÇ ª5Pr497)+ J)*6J2 unlock-stream∞0q4values4ı† 4`3ı† 3a2ı† 2b1ı† 1c±6SRQP5"≥ê5$≥êÇµp442†°`≤#$µ¶PíµêÇ'C7Define Method Print)+ S6S2464729!$)'7 o1+ T***3+ U)*!t+ V)*$u+ W)*)v+ Y)*'w+ Z)* save-levelx+ [)*save-lengthy+ \)*save-circle?{+ \)*save-pretty?}6T2a6Y26Z26[26\2 4j9 7 ¨1+ d 1*'!*3*~*)*|*$ * *z*!+ eÅ+ fÅ+ gÅ+ m Å+ nÅ+ oÅ+ t'Å+ vÅ+ wÅ+ xÅ+ ~Å+ ÅÅ6d2a6f2min6f26f26n2 6w2 6x2o6~26Å2p0†Ù 1±102≤í`≥P2Ç 0`≥P2Ç3†Ù 4±43í`¥P2Ç 3`¥P2Ç5†Ù`PP 5 6 `µP2Ç∂72Ç8†ı 8`∑P2Ç∏72r497,+ É-*Ä*~ *| **z+ ÑÉ+ ÖÉ+ Ü É6É26Ñ2 6Ö2 6Ü20`∞P1Ç2`±P1Ç3`≤P1Ç4`≥P1ÇP4s4ı† 4`3ı† 3a2ı† 2b1ı† 1c5±d5≤e5≥f5¥gµS6VRUQ5TP&∑êWVU5T(∑êÇπp442†°`≤#$µ¶PíµêÇ'Co7#Define Method start-circle-printing)+ †6†246472o97Vo1+ ¢***3 + £)*:Ñ+ §Ö+ •Ö+ ßÖ+ ® )*<Ö+ ©)*countÜ+ ™ á+ ≠á+ Æá+ Øá6¢26§2@6§2*6•26ß256®2466®206©216≠26Æ2print-object4s1∞`P ±¢ë`Pa≥Q1Ç¥21ía•¶bQ∑ RcSd∏TQÇS ÙdπT1Ç∫21ÇdπT1Ç ªp442o†°`≤#$µ¶PíµêÇ'Cp7 Define Method maybe-print-object)+ π6π246472p97 p*+ ∫ ***3 + ∫)*depthä6∫2466∫24j97h1+ º+*3 **å+ Ωç+ ø)*requested-levelç+ ¿é+ ¡é+ √é+ Δé+ «)*<é+ »)* ref-countê+ … ë+ Ãë+ œé+ –é+ ¬é6º26Ω26Ω2466Ω26¿2write6¿2b6¡26√26Δ256«206»216Ã2â6œ2output-print-reference0`∞P1Ç±¢ë£`1¥PaQ0Q¯ µ¶1r1∑11∏"π21íbR∫ cSdªTRÇS Ùº21rΩπ21í1rº21r497)+ ”***å6”20 Ò`∞P1ÇP†°`1≤ Pa≥21Q$µê1Q&µêr442p†°`≤#$µ¶PíÇ'Cî7$Define Method output-print-reference++ ‹+ ›+ ‹ 6‹2+466›2472î97 Uî1+ ﬂ***< + ·)*ref-idñ+ ‚ó+ „ó+ Íó+ Îó+ Ï ó+ ‰ó+ Âó+ Êó+ Áó+ Ë ó6ﬂ2.6·206‚2â6‚2,6Í2ì6Í2c6Ï2d6Â2B=4s2∞`2± Ù≤2≥1Ç 8P¥•1Ç¥P1Ç¥¶1Ç ¥•1Ç¥∑12í1Ç¥¶1Ç¥(1Ç≤2≥1Çπp4î†°`¢°a≥$%∂PQí∂êÇ'Bâ7Define Generic print-object*++ ˜4Z2â4426˜2â∞!≤£§í≤êá%Câ7Define Method print-object)+ 6224662472â97 â-+ ***3 + ô+ ô+ ô+ 1ô62pprint-logical-blockprefix{body97@1+ **3* + )* obj-classù+ û+ û+ )*descriptorsû+ †+ †+ †+ †+ †+ †+ †+ .†62object-class62write-class-name62ì instance6 2slot-descriptors, 62 pprint-indentblock6 2pprint-newlinelinear62öõú97)+ +*3*°* 64catch97π1+ )*exit+*3 *°*+ ´+ ´+ )*$´+ Æ+ )*à,Æ+ )*desc0Ø+ ∞+ ∞+ ∞+ ∞+ ∞+ " ∞+ #∞+ $∞+ %∞+ &**win?8*value4∞+ '≤+ (≤+ )≤+ ≤97¨)+ 4apply4throw∞°02s4626246624forward-iteration-protocol6ì, 62ß®...6"2W6"246"2 slot-name: fill6%2 slot-value6'2{UNINITIALIZED}4 ±ê`≤£ë§a0µQb1c∂SÅihgfed jZkWSTUìYSTíl[ ˆ∑(0Çπ*0Ç R[R˜ ∑+0ÇPÄ ∑º≠\æí0Ç∑/0Çπ/0Çø\2Çnm^ø]0Ç ∑/0ÇVSTíd[ o_j jˇˇˇ442∞103!≤£ëq442suffix0∞`±P2Ç≤#2ÇP¥aQÙ≤%2Ç∂' 2É∏)2Ç∫2+,0Q-æØë/w442ª}4s∞1!"#2$µ¶ë'(áπp4â†°`¢°a≥$%∂PQí∂êÇ'@byte-string-escape-chars7(Define Constant byte-string-escape-chars)+ <6<2@6<2<vector>sizeπ4H2º∞°"#ï`¥%PÉ?7 Top Level Form)+ = 04A6=2º6=2W6=2<byte> `±P¢≥§%íÉP?7 Top Level Form)+ > a4A6>2º6>2W6>2ø `±P¢≥§%íÉP?7 Top Level Form)+ ? b4A6?2º6?2W6?2ø `±P¢≥§%íÉP?7 Top Level Form)+ @ t4A6@2º6@2W6@2ø `±P¢≥§%íÉP?7 Top Level Form)+ A f4A6A2º6A2W6A2ø `±P¢≥§%íÉP?7 Top Level Form)+ B r4A6B2º6B2W6B2ø `±P¢≥§%íÉP?7 Top Level Form)+ C n4A6C2º6C2W6C2ø `±P¢≥§%íÉP?7 Top Level Form)+ D e4A6D2º6D2W6D2ø `±P¢≥§%íÉP?7 Top Level Form)+ E "4A6E2º6E2W6E2ø" `±P¢≥§%íÉP?7 Top Level Form)+ F \4A6F2º6F2W6F2ø\ `±P¢≥§%íÉPCâ7Define Method print-object)+ J6J24466J2472â97óâ1+ L***3 + M ¿+ N )*i¿+ O)*len¡+ Q√+ R$)*j√+ Q≈+ U ≈+ W≈+ X≈+ Y≈+ \≈+ \ √+ _√6L2ì"6M2466N2æ4>6R2º6R2W6R2østartend\"4s∞!1Ç¢£` Pa¢£b2¥RcQSÚp¢dQeUfVSÙgWW µ¶∑®µ2Vííí V gWe Œˇˇˇ∞21)Q*VÜVSÚ∞+1Ç∞µ¶∑®µ2Vííí1Ç V Pa çˇˇˇ ∞,1ÇΩp4â†°`¢°a≥$%∂PQí∂êÇ'Câ7Define Method print-object)+ d6d2<byte-character>466d2472â97Iâ1+ f***3 + h + i + j + k + l + m + o + q 6f2ì'4>6h2º6h2W6h2ø\'\''4s∞!1Ç≤£¥•2íí∞&1Ç∞≤£¥•2íí1Ç 2'Ù∞(1Ç∞)1Ç ∞21Ç∞*1Çªp4â†°`¢°a≥$%∂PQí∂êÇ'Câ7Define Method print-object)+ 62<list>4662472â97 â,+ Ä***3 + ÅÃ+ Ç Ã+ áÃ6Ä2öõ#(ú97*+ É **3* + ÑÕ6Ñ2 print-list0ı∞02r442ª)4s∞1!"#2$µ¶ë'(áπp4â†°`¢°a≥$%∂PQí∂êÇ'CŒ7Define Method print-list)+ ä6ä2À466ä2472Œ97Œ)+ ã***3 6ã4™97!y1,+ ã)*¨**3*+ å–+ ç)*$–+ é“+ ê“+ ë“+ í)*)“+ ì)*first-pass?”+ î‘+ î)* remaining‘+ ï )*à ÷+ ñÿ+ óÿ+ ôÿ+ üÿ+ °ÿ+ ¢ÿ+ £ÿ+ ¶ÿ+ ®ÿ+ ©)*<$ÿ+ ™)*í(Ÿ+ ´ ⁄+ ≠⁄+ Æ⁄+ ±⁄+ ±ÿ+ µÿ+ ∂)*<$ÿ+ ∏)*ò(€+ ª‹+ º‹+ ‹+ À‹+ Ã‹+ Õ‹+ Œ‹+ œ‹+ ¿‹+ ¡‹+ ¬‹+ √ ‹+ ƒ‹+ ≈‹+ Δ‹+ Δÿ+ •ÿ+ õÿ+ úÿ+ ùÿ+ ûÿ+ ìÿ+ îÿ97¨)+ ã4µ4∂∞°02s46å26å2466å26é2ì...6ê26ê2head6ë26í26ì2tail, 6ó2ßπ6ô2 instance?6ô2À...6®256©206™216∂2.. π6Ã2c6Œ2d. π6√2B=. π3 ±ê`≤£ë§a0µQbR R Û ∂'0r∏1π0Ç0∫c0ªd1ºe fUgVhWı∂-0Çæ/0ÇøWØíÏRXR˜ ∂/0ÇPÄ ≈S∏T3øW0íiYø jZkø[YÇZ Ù∏Wπ0Ç PÄ zøW0íiYøjYø Ù∏Wπ0Ç WZ%∂/0Çæ/0Ç∂Ø0Ç∂Z0Ç∂Ø0ÇPÄ ,∂/Çæ/0Ç∂Ø0Ç∂ø0Yí0Ç∂Ø0Ç∂/0Ç∏W0Ç ∏Wπ0Ç ∂/0Çæ/ 0Ç∏W0ÇPÄWºiYeX jZf ˛ˇˇ4424s∞21!≤£ëÅ¥p4Œ†°`¢°a≥$%∂PQí∂êÇ'Câ7Define Method print-object++ ›+ ﬁ+ › 6›2<simple-object-vector>466ﬁ2472â97 â,+ ‡***3 + ··+ ‚ ·+ Â·6‡2öõ#[ú97)+ „**3* 6„2print-items6„2∞0°2s442ª]4s∞1!"#2$µ¶ë'(áπp4â†°`¢°a≥$%∂PQí∂êÇ'Câ7Define Method print-object)+ Ô6Ô2 <function>466Ô2472â97 â-+ Ò***3 + ÚÂ+ ÛÂ+ Ù Â+ Â6Ò2öõ{ú97c1+ ˆ **3* + ˜Ê+ ¯Ê+ ˘)*nameÊ+ ˙Á+ ˚Á+ ¸ Á+ ˛ Ê+ ˇÊ+ Ê+ )*ËÊ+ È+ È+ È+ È+ Ê6ˆ2ﬂ6ˆ2<generic-function>6˜2ìGF6¯2 function-name 6˚2ßπ6¸2W6¸246˛2<method>Method π62print-function-specializersFunction∞0°í"≤#2Ç¥0ë`P≤%2Ç∂'2Ç≤∏©Pí2r∞0™í*≤+2Ç¥0ë`P≤,2Ç∂-2Ç≤∏©Pí2Ç æ02r≤/2r442ª}4s∞1!"#2$µ¶ë'(áπp4â†°`¢°a≥$%∂PQí∂êÇ'CÌ7)Define Method print-function-specializers++ + + 62‰4662472Ì97.Ì1+ ***3 + )*specializersÓ+ Ô+ Ô+ Ô+ Ô+ Ô+ Ô+ Ô62method-specializers62ì 62ßπ62öõ(ú97)+ *** 62„62print-specializer∞0°2s442ª)4s∞2ë`PÙ ±"1Ç≥$1Çµ1&'(P)∫´ë,-áæp4Ì†°`¢°a≥$%∂PQí∂êÇ'C„7 Define Method print-items++ *+ ++ *6*2<collection>466*2‰6+2472„97„)+ -+** print-fun *items 6-4™97å1+ -)*¨+*ˆ *˜*+ .¯+ /¯+ 0)*$¯+ 1)*stream-for-apply˙+ 2˚+ 2)*à0˚+ 3 )*x4˝+ 4˛+ 5 ˛+ 7˛+ 8˛+ 9 ˛+ ;˛+ 2˛97¨)+ -4µ4∂∞°02s46.26.2466/26024∑642ì, 652ßπ...6;2µ4 ±ê`≤£ë§a0µQb∂0ëc1d∑TÅjihgfe k[lXTUVìZTUím\ ˆ∏)0Ç∫+0Ç R\RÙ ∏,0ÇPÄ Ω2]SÉWTUíe\ n^k õˇˇˇ4424s∞231!≤£ëÅ¥p4„†°`¢°a£°b¥%&∑PQRì∑êÇ(BÛ7 Define Generic print-specializer*++ H 4Z2Û46H266H2Û∞!≤£§í≤êá%CÛ7Define Method print-specializer)+ K6K26466K2472Û97Û)+ L***type 6L2ì{UNKNOWN-TYPE}4s∞!1Ç≤p4Û†°`¢°a≥$%∂PQí∂êÇ'CÛ7Define Method print-specializer)+ O6O2<class>466O2472Û97Û)+ Q*** 6Q2£4s∞21Ç±p4Û†°`¢°a≥$%∂PQí∂êÇ'CÛ7Define Method print-specializer)+ T6T2<singleton>466T2472Û97Û++ V*** + W+ X6V2ì{Singleton 6W26W2singleton-object}4s∞!1Ç≤2≥1Ç∞$1Çµp4Û†°`¢°a≥$%∂PQí∂êÇ'CÛ7Define Method print-specializer)+ [6[2 <subclass>466[2472Û97Û++ ]*** + ^+ _6]2ì{Subclasses of 6^2£6^2subclass-of}4s∞!1Ç≤2≥1Ç∞$1Çµp4Û†°`¢°a≥$%∂PQí∂êÇ'CÛ7Define Method print-specializer)+ b6b2<limited-integer>466b2472Û97+Û/+ d*** + e+ f+ g+ h+ i+ j6d2ì {Limited 6e2£6e2limited-integer-class 6g26g2limited-integer-min..6i2limited-integer-max}4s∞!1Ç≤2≥1Ç∞$1Çµ2∂1Ç∞'1Çµ2∏1Ç∞)1Ç∫p4Û†°`¢°a≥$%∂PQí∂êÇ'CÛ7Define Method print-specializer)+ m6m2<union>466m2472Û97 Û-+ o*** + p+ q+ r + w6o2öõ{ú97++ s*** + t+ u6s2ìUnion 6t2ßπ6u26u2 union-members∞!2Ç≤#2Ç¥0µ2r442ª}4s∞1!"#2$µ¶ë'(áπp4Û†°`¢°a≥$%∂PQí∂êÇ'Câ7Define Method print-object)+ Å6Å2466Å2472â97â++ Ç***3 + É+ Ñ6Ç2ì{Class 6É2£}4s∞!1Ç≤21Ç∞#1Ç¥p4â†°`¢°a≥$%∂PQí∂êÇ'C£7Define Method write-class-name)+ å6å2466å2472£97£-+ é***3 + è)*Ë+ ê+ ë+ í6é2 class-name6ê2ì6ê2W6ê24<UNNAMED-CLASS>4s∞2ë`P ±≤£Pí1Ç ±$1Çµp4£†°`¢°a≥$%∂PQí∂êÇ'Câ7Define Method print-object)+ ù6ù2[466ù2472â97â)+ ü***3 6ü2ì#t4s∞!1Ç≤p4â∞ë°`¢°a≥$%∂PQí∂êÇ'Câ7Define Method print-object)+ §6§2[466§2472â97â)+ ¶***3 6¶2ì#f4s∞!1Ç≤p4â∞ë°`¢°a≥$%∂PQí∂êÇ'Câ7Define Method print-object)+ ´6´2<symbol>466´2472â97â++ ¨***3 + ≠+ Æ6¨2ì#"6≠2W6≠2<string>"4s∞!1Ç∞≤£2í1Ç∞$1Çµp4â†°`¢°a≥$%∂PQí∂êÇ'Câ7Define Method print-object)+ ≥6≥2466≥2472â97 â)+ µ ***3 6µ2ì6µ2F4s∞±2ë1Ç≤p4â†°`¢°a≥$%∂PQí∂êÇ'Câ7Define Method print-object)+ ∏6∏2<extended-integer>466∏2472â97â*+ ∫***3 + ª 6∫2ì#e6ª2F4s∞!1Ç∞≤2ë1Ç≥p4â†°`¢°a≥$%∂PQí∂êÇ'Bprint-to-string7Define Generic print-to-string)+ ≈6≈264Z2442!$)'†°`≤#¥•ë¥&'()î¥Pëá*C7Define Method print-to-string*+ …+ «6…24464729!$)'7,+ .*' *) *$*!*args*3+ À)*s + Ã"+ Ã 6 2@6 2<byte-string-output-stream>6À2µ6À26Ã2string-output-stream-string∞°ë`≤£7P6ÑP¥0442†°`≤#P$µ¶ëµPëÇ'@bogus-buffer7Define Constant bogus-buffer)+ Ÿ6Ÿ2@6Ÿ2<buffer>4H2&∞°ë`≤#PÉC"stream-extension-get-output-buffer7 $0Define Method stream-extension-get-output-buffer++ €+ ‹+ €6€2466‹2'6‹2<buffer-index>472(97:(,+ ›)*+ ﬁ*+ ‡*+ ﬂ*6›26›26ﬁ2&6ﬁ2æ6‡2(6‡24s4∞4±¢ ¢≥ ¥4µÅ ¥4µÅba`∂P0Q1R2s4(†°`¢°a£°b£°c¥%SRQ&∑Pë∑QRSìÇ(C&stream-extension-release-output-buffer74Define Method stream-extension-release-output-buffer*+ Â + ‰ 6Â2466Â2)472+97*+*+ Á**next* + Ë,6Á26Á26Ë2+6Ë24s2∞2± ≤2≥1Ç ≤2≥1Ç¥p4+†°`¢°a≥$%∂PQí∂êÇ'C$stream-extension-empty-output-buffer72Define Method stream-extension-empty-output-buffer*+ Ì + Ï 6Ì2466Ì2)472.97*.*+ Ô**stop* + /6Ô26Ô262.624s2∞2± ≤2≥1Ç ≤2≥1Ç¥p4.†°`¢°a≥$%∂PQí∂êÇ'C(stream-extension-force-secondary-buffers76Define Method stream-extension-force-secondary-buffers*+ ı+ Ù6ı246472197(1*+ ˜)*+ ¯26˜26˜26¯216¯24s1∞1± ≤1≥Å ≤1≥Å¥p41†°`≤#$µPëµêÇ&Cstream-extension-synchronize7*Define Method stream-extension-synchronize)+ ¸6¸246472397(3*+ ˛)*+ ˇ46˛26˛26ˇ236ˇ24s1∞1± ≤1≥Å ≤1≥Å¥p43†°`≤#$µPëµêÇ&Cö7"Define Method pprint-logical-block)+ 6246472ö9columnõper-line-prefixúª7£ö1+ #.*ª*ú *6 *õ*5*+ $7+ '7+ )7+ *7+ +)*target7+ ,8+ -8+ .8+ /8+ 98+ 97+ ;7+ <7+ >7+ ?7+ @76$2error3Can't specify both a prefix: and a per-line-prefix:6'26'26)2 6*26+2ö5õ6ú97%.+ 0,* *ú*9* pretty-stream+ 1;+ 3;+ 4)*orig-target;+ 5=+ 6 =63264240ı12q2∞`4a±Q2Ç12ÅPa±Q2ÇQ442ª6<2ì4s43 ∞!Å 6≤6≥ k6¥ 6µ`∂P'5(4)3*62P+º≠ë.1ã C4`PP 3ø4`PP 36Ç 26Å1ø16Ç øp4ö†°`≤#$µPëµêÇ&Cß7Define Method pprint-newline,+ G+ H+ I+ G 6G2one-of®miserπ mandatory466I2472ß97 zß0+ L***kind + OB+ PB+ MB+ OB+ P#B+ OB+ PB6L26L2A6P2ì 6M2 2ß2A A 4s1∞J1±2"ı ≥$1Ç &1µ∂21∑Ç 2(ı ≥)1Ç &1µ∂21∑Ç 2*ı ≥+1Ç ºp4ß∞!"#$î•`¶•a∑()∫PQí∫êÇ+C•7Define Method pprint-indent,+ T+ U+ V+ T6T2?¶current466U26V2472•97F•*+ X+**n *relative-to + Y1E6X26X26Y2 2•24s1∞'1± 1≤ ≥321¥É 1≤ ≥321¥É µp4•∞!"í£`§£a•£b∂'(πPQRìπêÇ*C pprint-tab7 &Define Method pprint-tab.+ ^+ _+ `+ a+ b+ ^6^2?linesection line-relativesection-relative466`26b2472H97HH*+ d,**colinc *colnum *C+ e3M6d26d26e2 2H24s1∞(1± 1≤≥4321¥Ñ 1≤≥4321¥Ñ µp4H∞!"#$î•`¶•a¶•bß•c∏)*ªPQRSîªêÇ,ˇ